home *** CD-ROM | disk | FTP | other *** search
/ The Netherlands - A Compact World / The Netherlands.iso / chapters / 2.3.2.dxr / Internal_11_show.ls < prev    next >
Encoding:
Text File  |  2004-06-10  |  551 b   |  30 lines
  1. property spriteNum, pBlendmax
  2.  
  3. on beginSprite me
  4.   pBlendmax = sprite(spriteNum).blend
  5.   sprite(spriteNum).visible = 0
  6. end
  7.  
  8. on Show me
  9.   sprite(spriteNum).blend = 0
  10.   sprite(spriteNum).visible = 1
  11.   x = 1
  12.   repeat while x <= 5
  13.     sprite(spriteNum).blend = x / 5.0 * pBlendmax
  14.     updateStage()
  15.     x = 1 + x
  16.   end repeat
  17. end
  18.  
  19. on Hide me
  20.   x = 1
  21.   repeat while x <= 5
  22.     y = 5 - x
  23.     sprite(spriteNum).blend = y / 5.0 * pBlendmax
  24.     updateStage()
  25.     x = 1 + x
  26.   end repeat
  27.   sendAllSprites(#changetxt, "2.3.2")
  28.   sprite(spriteNum).visible = 0
  29. end
  30.